home *** CD-ROM | disk | FTP | other *** search
/ Aminet 31 / Aminet 31 (1999)(Schatztruhe)[!][Jun 1999].iso / Aminet / dev / gui / gui4cli.lha / Gui4Cli / G4C / CED / cedMark.g < prev    next >
Text File  |  1999-04-21  |  918b  |  51 lines
  1. G4C
  2.  
  3. ; This is an accompanying GUI for the cedbar.gc GUI
  4. ; --------------------------------------------------------------
  5.  
  6. WINBIG 361 30 81 35 ""
  7. WinType 00001000
  8. winonmouse 30 15
  9. resinfo 8 670 280
  10.  
  11. varpath 'cedbar.gc'
  12. BOX 0 0 0 0 out button
  13.  
  14. xonload
  15. setgad cedmark.g 99 hide ; hide resize button
  16.  
  17. ; declare this dummy gadget & hide it, so that the
  18. ; gui is resized correctly if on an interlace screen
  19. xbutton 0 0 30 10 resize
  20. gadid 99
  21.  
  22.  
  23. xonrmb
  24. guiclose cedmark.g
  25.  
  26. xoninactive
  27. guiclose cedmark.g
  28.  
  29.  
  30. ; --------------------------------------------------------------
  31. ;       set/go buttons
  32. ; --------------------------------------------------------------
  33.  
  34. XRADIO 23 2 18 9 cedMark 2
  35. RStr 1 1
  36. RStr 2 2
  37. RStr 3 3
  38.  
  39. XBUTTON 45 2 30 15 Set
  40. cedSend = "mark location "
  41. AppVar cedSend $cedMark
  42. SendRexx $cedport $cedSend
  43.  
  44. XBUTTON 45 17 30 15 Go
  45. SetVar cedSend "jump to mark "
  46. AppVar cedSend $cedMark
  47. SendRexx $cedport $cedSend
  48.  
  49.  
  50.  
  51.